home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2002 January / PC-WELT 01-2002.ISO / software / prx / euro / Euro.bas < prev    next >
Encoding:
BASIC Source File  |  2001-10-29  |  250 b   |  11 lines
  1. Attribute VB_Name = "Euro"
  2. Sub euro_conv()
  3.        For Each z In Selection.Cells
  4.        zel = Chr(34) & CStr(z) & Chr(34)
  5.         z.Value = "=EUROCONVERT(" & zel & ",""DEM"",""EUR"")"
  6.         z.NumberFormat = "#,##0.00 Ç"
  7.     Next
  8. End Sub
  9.  
  10.  
  11.